home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / t3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  160 lines
  1. 0 REM SAVE"@0:T3",8,1                  :
  2. 10 FORS=54270TO54300:POKES,0:NEXT
  3. 21 V=54296:A1=54277:S1=54278:W1=54276:H1=54273:L1=54272
  4. 23 A2=54284:S2=54285:W2=54283:H2=54280:L2=54279
  5. 25 A3=54291:S3=54292:W3=54290:H3=54287:L3=54286:POKEV,15
  6. 40 POKEA1,1:POKEA2,1:POKEA3,1
  7. 41 POKES1,136:POKES2,136:POKES3,136
  8. 43 POKEW1,33:POKEW2,33:POKEW3,33
  9. 100 W=25
  10. 1010 READA,B,C,D,E,F
  11. 1020 IFA=325THENW=100:GOTO1010
  12. 1025 IFA=350THENW=10 :GOTO1010
  13. 1030 IFA=425THENW=25 :GOTO1010
  14. 1031 IFA=450THENW=200:GOTO1010
  15. 1033 IFA=475THENW=1100:GOTO1010
  16. 1050 IFA=999THEN1200
  17. 1100 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
  18. 1105 POKEW1,33:POKEW2,33:POKEW3,33
  19. 1130 FORI=1TOW:NEXT
  20. 1135 GOTO1010
  21. 1200 FORS=54270TO54300:POKES,0:NEXT
  22. 1205 GETA$:IFA$=""THEN1205
  23. 1210 END
  24. 2000 DATA44,193,,,,,50,60,,,,,56,99,,,,,59,190,,,,
  25. 2001 DATA28,49,,,,,29,223,,,,,33,135,,,,,37,162,,,,
  26. 2002 DATA33,135,,,,,37,162,,,,,39,223,,,,,44,193,,,,
  27. 2003 DATA22,96,,,,,25,30,,,,,28,49,,,,:REM BAR 127
  28. 2004 DATA29,223,,,,,28,49,,,,,29,223,,,,,33,135,,,,
  29. 2005 DATA37,162,,,,,28,49,,,,,25,30,,,,,22,96,,,,
  30. 2006 DATA19,239,,,,,25,30,,,,,28,49,,,,,29,223,,,,
  31. 2007 DATA33,135,,,,,25,30,,,,,22,96,,,,,19,239,,,,
  32. 2008 DATA18,209,,,,,22,96,,,,,25,30,,,,,28,49,,,,
  33. 2009 DATA29,223,,,,,14,24,,,,,14,239,,,,,16,195,,,,
  34. 2010 DATA18,209,,,,,16,195,,,,,18,209,,,,,19,239,,,,
  35. 2011 DATA22,96,,,,,11,48,,,,,12,143,,,,,14,24,,,,:REM BAR 128
  36. 2012 DATA14,239,,,,,14,24,,,,,14,239,,,,,16,195,,,,
  37. 2013 DATA18,209,,,,,16,195,,,,,14,239,,,,,14,24,,,,
  38. 2014 DATA12,143,,,,,14,239,,,,,16,195,,,,,18,209,,,,
  39. 2015 DATA19,239,,,,,18,209,,,,,16,195,,,,,14,239,,,,
  40. 2016 DATA14,24,,,,,16,195,,,,,18,209,,,,,21,31,,,,
  41. 2017 DATA23,181,,,,,19,239,,,,,18,209,,,,,16,195,,,,
  42. 2018 DATA14,239,,,,,23,181,,,,,25,30,,,,,28,49,,,,
  43. 2019 DATA29,223,,,,,33,135,,,,,37,162,37,162,12,143,37,162,25,30,12,143:REM 129
  44. 2020 DATA325,325,325,325,325,325
  45. 2021 DATA42,62,29,223,4,112,42,62,29,223,4,112
  46. 2022 DATA42,62,29,223,4,112,42,62,29,223,4,112
  47. 2023 DATA42,62,29,223,4,112,42,62,29,223,4,112
  48. 2024 DATA42,62,29,223,4,112,42,62,29,223,4,112
  49. 2025 DATA42,62,29,223,5,152,42,62,29,223,5,152
  50. 2026 DATA42,62,29,223,5,152,42,62,29,223,5,152
  51. 2027 DATA42,62,29,223,5,152,42,62,29,223,5,152,,,,,5,152
  52. 2030 DATA37,162,28,49,5,152,37,162,28,49,5,152
  53. 2031 DATA37,162,28,49,5,152,37,162,28,49,5,152
  54. 2032 DATA37,162,28,49,4,180,37,162,28,49,4,180
  55. 2033 DATA37,162,28,49,4,180,37,162,28,49,4,180:REM BAR 130
  56. 2034 DATA37,162,15,210,3,83,37,162,15,210,3,83
  57. 2035 DATA37,162,15,210,3,83,37,162,15,210,3,83
  58. 2036 DATA37,162,15,210,3,83,37,162,15,210,3,83
  59. 2037 DATA37,162,15,210,3,83,37,162,15,210,3,83
  60. 2038 DATA450,450,450,450,450,450
  61. 2039 DATA,,,,,,,,,,6,167,,,,,7,233,,,,,5,152
  62. 2040 DATA,,,,6,167,,,,,4,180,,,,,5,152,,,,,3,244:REM BAR 131
  63. 2041 DATA,,,,4,180,,,,,3,83,,,,,3,134,,,,,3,134,,,,,2,163,,,,,2,163
  64. 2042 DATA37,162,13,78,2,163,37,162,13,78,2,163
  65. 2043 DATA37,162,13,78,2,163,37,162,13,78,2,163
  66. 2044 DATA33,135,14,24,2,163,33,135,14,24,2,163
  67. 2045 DATA33,135,14,24,2,163
  68. 2046 DATA33,135,25,30,2,163,33,135,25,30,2,163
  69. 2047 DATA33,135,22,96,2,163,33,135,22,96,2,163:REM BAR 132
  70. 2050 DATA33,135,25,30,2,163,33,135,25,30,2,163
  71. 2051 DATA33,135,25,30,2,163,33,135,25,30,2,163
  72. 2052 DATA33,135,25,30,2,163,33,135,25,30,2,163
  73. 2053 DATA33,135,25,30,2,163,33,135,25,30,2,163,,,,,,
  74. 2054 DATA425,425,425,425,425,425
  75. 2055 DATA25,30,,,,,22,96,,,,,25,30,,,,
  76. 2056 DATA21,31,,,,,21,31,,,,,18,209,,,,,21,31,,,,
  77. 2057 DATA16,195,,,,,28,49,,,,,25,30,,,,,28,49,,,,
  78. 2058 DATA22,96,,,,,22,96,,,,,21,31,,,,,22,96,,,,:REM BAR 133
  79. 2059 DATA18,209,,,,,31,165,,,,,28,49,,,,,31,165,,,,
  80. 2060 DATA25,30,,,,,25,30,,,,,22,96,,,,,25,30,,,,
  81. 2061 DATA21,31,,,,,33,135,,,,,31,165,,,,,33,135,,,,
  82. 2062 DATA28,49,,,,,37,162,,,,,33,135,,,,,37,162,,,,
  83. 2063 DATA31,165,,,,,42,62,,,,,37,162,,,,,42,62,,,,
  84. 2064 DATA33,135,,,,,44,193,,,,,42,62,,,,,44,193,,,,
  85. 2065 DATA37,162,,,,,50,60,,,,,44,193,,,,,50,60,,,,
  86. 2066 DATA42,62,,,,,33,135,,,,,31,165,,,,,33,135,,,,:REM BAR 134
  87. 2067 DATA28,49,,,,,37,162,,,,,33,135,,,,,37,162,,,,
  88. 2068 DATA31,165,,,,,26,156,,,,,23,181,,,,,26,156,,,,
  89. 2069 DATA21,31,,,,,33,135,,,,,31,165,,,,,33,135,,,,
  90. 2070 DATA28,49,,,,,22,96,,,,,21,31,,,,,22,96,,,,
  91. 2071 DATA18,209,,,,,31,165,,,,,28,49,,,,,31,165,,,,
  92. 2072 DATA16,195,,,,,28,49,,,,,25,30,,,,,28,49,,,,
  93. 2073 DATA15,210,,,,,26,156,,,,,23,181,,,,,26,156,,,,
  94. 2074 DATA21,31,,,,,16,195,,,,,15,210,,,,,14,24,,,,:REM BAR 135
  95. 2075 DATA13,78,,,,,18,209,,,,,16,195,,,,,15,210,,,,
  96. 2076 DATA14,24,,,,,21,31,,,,,18,209,,,,,16,195,,,,
  97. 2077 DATA15,210,,,,,22,96,,,,,21,31,,,,,18,209,,,,
  98. 2078 DATA16,195,,,,,25,30,,,,,22,96,,,,,21,31,,,,
  99. 2079 DATA18,209,,,,,28,49,,,,,25,30,,,,,22,96,,,,
  100. 2080 DATA21,31,,,,,25,30,,,,,28,49,,,,,31,165,,,,
  101. 2081 DATA450,450,450,450,450,450
  102. 2082 DATA33,135,,,,,33,135,,,,
  103. 2083 DATA33,135,12,143,5,71,33,135,12,143,5,71:REM BAR 136
  104. 2084 DATA35,134,21,31,6,71,35,134,21,31,6,71
  105. 2085 DATA425,425,425,425,425,425
  106. 2086 DATA,,,,,,14,24,,,,,17,195,,,,,21,31,,,,,28,49,,,,
  107. 2087 DATA450,450,450,450,450,450
  108. 2088 DATA35,134,,,,,35,134,,,,,,,,,,
  109. 2089 DATA35,134,28,49,6,71,35,134,28,49,6,71
  110. 2090 DATA37,162,28,49,5,152,37,162,28,49,5,152
  111. 2091 DATA425,425,425,425,425,425
  112. 2092 DATA,,,,,,14,24,,,,,18,209,,,,,22,96,,,,,28,49,,,,
  113. 2093 DATA450,450,450,450,450,450
  114. 2094 DATA37,162,,,,,37,162,,,,,,,,,,
  115. 2095 DATA37,162,14,24,5,152,37,162,14,24,5,152:REM BAR 137
  116. 2096 DATA31,165,18,209,5,152,31,165,18,209,5,152
  117. 2097 DATA425,425,425,425,425,425
  118. 2098 DATA,,,,,,12,143,,,,,15,210,,,,,18,209,,,,,25,30,,,,
  119. 2099 DATA450,450,450,450,450,450
  120. 2100 DATA31,165,,,,,31,165,,,,,,,,,,
  121. 2101 DATA31,165,12,143,5,152,31,165,12,143,5,152
  122. 2102 DATA33,135,12,143,5,71,33,135,12,143,5,71,,,,,,
  123. 2103 DATA425,425,425,425,425,425
  124. 2104 DATA12,143,,,,,16,195,,,,,21,31,,,,,25,30,,,,
  125. 2105 DATA450,450,450,450,450,450
  126. 2106 DATA33,135,,,,,33,135,,,,,,,,,,
  127. 2107 DATA33,135,12,143,5,71,33,135,12,143,5,71:REM BAR 138
  128. 2108 DATA28,49,16,195,5,71,28,49,16,195,5,71,,,,,,
  129. 2109 DATA425,425,425,425,425,425
  130. 2110 DATA11,48,,,,,12,143,,,,,16,195,,,,,22,96,,,,
  131. 2111 DATA450,450,450,450,450,450
  132. 2112 DATA28,49,,,,,28,49,,,,,,,,,,
  133. 2113 DATA28,49,11,48,5,71,28,49,11,48,5,71
  134. 2114 DATA29,223,11,48,4,180,29,223,11,48,4,180,,,,,,
  135. 2115 DATA425,425,425,425,425,425
  136. 2116 DATA11,48,,,,,14,239,,,,,18,209,,,,,22,96,,,,
  137. 2117 DATA450,450,450,450,450,450
  138. 2118 DATA29,223,,,,,29,223,,,,,,,,,,
  139. 2119 DATA29,223,11,48,4,180,29,223,11,48,4,180:REM BAR 139
  140. 2120 DATA29,223,12,143,4,112,29,223,12,143,4,112,,,,,,
  141. 2121 DATA425,425,425,425,425,425
  142. 2122 DATA10,143,,,,,12,143,,,,,14,239,,,,,17,195,,,,
  143. 2123 DATA450,450,450,450,450,450
  144. 2124 DATA29,223,,,,,29,223,,,,,,,,,,
  145. 2125 DATA29,223,10,143,4,112,29,223,10,143,4,112
  146. 2126 DATA28,49,11,218,4,48,28,49,11,218,4,48,,,,,,
  147. 2127 DATA425,425,425,425,425,425
  148. 2128 DATA9,104,,,,,14,24,,,,,18,209,,,,,23,181,,,,
  149. 2129 DATA450,450,450,450,450,450
  150. 2130 DATA28,49,,,,,28,49,,,,,,,,,,,,,,,,
  151. 2131 DATA28,49,11,218,4,48,28,49,11,218,4,48,28,49,11,218,4,48:REM BAR 140
  152. 2132 DATA475,475,475,475,475,475
  153. 2133 DATA28,49,18,209,3,35,25,30,18,209,3,187
  154. 2134 DATA25,30,21,31 ,2,163,22,96,14,24,2,204:REM BAR 141
  155. 2135 DATA21,31,14,24,3,134,21,31,14,24,3,134
  156. 2136 DATA18,209,11,48,3,187,18,209,12,143,3,35:REM BAR 142
  157. 2137 DATA18,209,14,24,2,90,18,209,14,24,2,90
  158. 2138 DATA18,209,14,24,2,90,18,209,14,24,2,90
  159. 5000 DATA999,999,999,999,999,999
  160.